home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Metal Briefcase 1.xpl < prev    next >
Text File  |  2001-04-06  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Briefcase' Options"
  5. "NAME"="'Metal' Briefcase"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable 'Metal' Briefcase"
  8. "DESCRIPTION 1"="If you are tired of the boring brown My Briefcase function, why not spice it up with a snazzy metal icon instead?"
  9. "DESCRIPTION 2"="When you have made changes, refresh the icon cache so that you can enjoy your new aluminium briefcase."
  10. "DESCRIPTION 3"="Note: The metal briefcase icon only has one format: 32x32 pixels at 16 colors. The standard icon supports 16x16, 32x32 and 48x48 pixels at 16 and 256 colors."
  11. "COMMENT 1"="My Briefcase? More like Why Briefcase!"
  12. "VERSION"="2.21"
  13. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com for Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "OSVERSION"="10101"
  16. "CONTACTURL"="http://www.neilrt.cwc.net/"
  17.  
  18. BASE="HKEY_CLASSES_ROOT\CLSID\{85BBD920-42A0-1069-A2E4-08002B30309D}\DefaultIcon"
  19.  
  20. SUB Plugin_Initialize
  21.  W=GetWinSysDir
  22.  s=FileExists(w + "syncui.dll")
  23.  if s=false then
  24.   Call Disable
  25.   Call MsgError("X-Setup could not find the My Briefcase DLL in Windows System folder. This may be because you do not have My Briefcase installed, or you/a program has removed it.")
  26.  else
  27.   s=RegReadValue(BASE + "\@")
  28.   if IsEmpty(s)=true then
  29.    Call MsgError("X-Setup could not find My Briefcase in your computer's Registry. This may be because you do not have My Briefcase installed, or you/a program has removed it.")
  30.    Call Disable
  31.   else
  32.    if s=w + "syncui.dll,1" then
  33.     Call SetUIElement(1,true)
  34.    end if
  35.   end if
  36.  end if
  37. END SUB
  38.  
  39. SUB Plugin_CheckData(ElementIndex)
  40. END SUB
  41.  
  42. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  W=GetWinSysDir
  44.  t=GetUIElement(1)
  45.  if t=true then
  46.   u=RegReadValue(BASE + "\@")
  47.   Call RegWriteValue(BASE + "\Xteq Old Value",u,1)
  48.   Call RegWriteValue(BASE + "\@",W + "syncui.dll,1" ,1)
  49.  else
  50.   v=RegReadValue(BASE + "\Xteq Old Value")
  51.   if IsEmpty(v)=false then
  52.    Call RegWriteValue(BASE + "\@",v,1)
  53.    Call RegDeleteValue(BASE + "\Xteq Old Value")
  54.   else
  55.    Call MsgError("X-Setup was unable to restore the icon to its original state. This may be because the icon is already at its original state, or the backup of the original icon has been deleted.")
  56.   end if
  57.  end if
  58. END SUB
  59.  
  60. SUB Plugin_Terminate
  61. END SUB